VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsParametros"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Event DataChanged()

'definicion de clases a contener
Public WithEvents orset As ClsRecordset
Attribute orset.VB_VarHelpID = -1

'definicion de atributos de la clase
Public nombrecamara As String
Public ciudad As String
Public pais As String
Public nit As String
Public app_tipocambio As Boolean
Public app_rutaasociados As String
Public app_rutacuentas As String

'definicion de datos privados de la clase
'Metodos constructor y destructor
Private Sub Class_Initialize()
    Set orset = New ClsRecordset
    orset.setCampos dbCampos(par)
    orset.setTablas Array(par)
End Sub
Private Sub Class_Terminate()
    Set orset = Nothing
End Sub
'Metodos de clase
Public Sub consulta()
    orset.consulta
End Sub
'metodos de base de datos
Public Sub Modificar(newNombreCamara As String, newCiudad As String, newPais As String, newNit As String, newAppTipocambio As String, newAppRutaasociados As String, newAppRutacuentas As String)
    orset.sUpdateGral dbCampos(par), _
                      Array(newNombreCamara, newCiudad, newPais, newNit, formatBoolBD(newAppTipocambio), newAppRutaasociados, newAppRutacuentas), _
                      Array(par), Array("1=1"), False
End Sub
'para recarga de los miembros de la clase
Private Sub Reload_members()
    With orset
        nombrecamara = .getDato(par_nombrecamara)
        ciudad = .getDato(par_ciudad)
        pais = .getDato(par_pais)
        nit = .getDato(par_nit)
        app_tipocambio = .getDato(par_app_tipocambio)
        app_rutaasociados = .getDato(par_app_rutaasociados)
        app_rutacuentas = .getDato(par_app_rutacuentas)
        If Strings.Right(app_rutaasociados, 1) <> "\" Then
            app_rutaasociados = app_rutaasociados & "\"
        End If
        If Strings.Right(app_rutacuentas, 1) <> "\" Then
            app_rutacuentas = app_rutacuentas & "\"
        End If
    End With
    RaiseEvent DataChanged
End Sub
Private Sub orset_DataChanged()
    Reload_members
End Sub
